home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / pascal / lzwp13.zip / LZW4P.PAS < prev    next >
Pascal/Delphi Source File  |  1993-09-09  |  521b  |  20 lines
  1. unit LZW4P;
  2.  
  3. interface
  4.  
  5. function InitLZW(AllocP : Pointer;
  6.                 BitCode : Integer) : Integer;  (* Initializes LZW4P *)
  7. function TermLZW(FreeP : Pointer)  : Integer;  (* Terminates LZW4P *)
  8. function Compress(ReaderP, WriterP : Pointer) : Integer;  (* Compresses *)
  9. function Expand(ReaderP, WriterP   : Pointer) : Integer;  (* Expands *)
  10.  
  11. implementation
  12.  
  13. {$L LZW4PLIB}
  14.  
  15. function InitLZW;  external;
  16. function TermLZW;  external;
  17. function Compress; external;
  18. function Expand;   external;
  19.  
  20. end.